Acala

Row

Pool
acala-subql
acala-dex-subql
Difference
id tvlUSD volumeUSD_24H volumeUSD_7D tvlUSD_DEX volumeUSD_24H_DEX volumeUSD_7D_DEX Absolute Percentage
lp://AUSD/LDOT 562,393.1 1,501.36 86,518.07 1,124,892 2,997.24 180,255.4 562,499.16 100
lp://AUSD/LCDOT 2,083,254.3 9,545.35 300,752.28 2,080,107 10,130.98 309,279.1 3,147.52 0.6
lp://DOT/LCDOT 3,322,772.5 10,046.65 418,290.42 3,324,124 10,048.22 466,410.9 1,351.91 0.2
lp://ACA/AUSD 1,488,318.5 5,452.57 517,689.81 1,488,850 8,503.53 571,328.6 531.03 0.1

Karura

Row

Pool
acala-subql
acala-dex-subql
Difference
id tvlUSD volumeUSD_24H volumeUSD_7D tvlUSD_DEX volumeUSD_24H_DEX volumeUSD_7D_DEX Absolute Percentage
lp://KBTC/KUSD -1,413,118.46 -1,078.03 -3,096.03 NA NA NA NA NA
lp://KINT/KUSD -1,250,494.67 -60.88 -3,675.65 NA NA NA NA NA
lp://PHA/KUSD -1,012,186.24 -321.26 -1,742.72 NA NA NA NA NA
lp://KUSD/KINT 1,230,992.77 -5.63 -3,388.62 21,170.52 77.70 7,674.11 1,209,822.26 NA
lp://KUSD/PHA 1,003,155.02 -32.14 -1,270.41 13,461.54 48.75 12,426.01 989,693.47 NA
lp://KUSD/KBTC 1,273,432.87 -12.15 -4,070.38 434,611.93 4,322.80 43,449.28 838,820.94 NA
lp://KAR/LKSM 649,365.89 2,514.47 37,684.91 655,366.97 2,524.35 45,286.91 6,001.08 NA
lp://TAI/taiKSM 0.00 0.00 0.00 3,147.31 2.34 955.54 3,147.31 NA
lp://KUSD/LKSM 468,717.85 12,519.89 69,189.74 470,085.31 24,444.05 135,740.08 1,367.46 NA
lp://KAR/KSM 890,034.35 1,034.32 116,780.85 891,319.41 1,032.86 116,928.23 1,285.07 NA
lp://KUSD/BNC 57,305.47 526.45 5,295.17 56,444.93 525.24 5,032.67 860.54 NA
lp://KSM/LKSM 98,376.95 1,558.62 5,405.97 99,065.97 1,541.78 5,658.95 689.03 NA
lp://KUSD/KSM 494,163.52 4,693.95 173,643.59 494,382.70 4,691.93 177,597.79 219.18 NA
lp://KAR/KUSD 598,628.07 2,134.44 123,661.65 598,787.51 2,466.84 182,720.32 159.45 NA
lp://KUSD/QTZ 24,677.36 19.95 2,377.44 24,835.11 20.11 3,489.23 157.74 NA
lp://KAR/QTZ 22,432.74 58.23 1,891.98 22,577.66 58.63 3,858.24 144.92 NA
lp://KUSD/RMRK 11,039.57 32.89 9,258.71 10,974.20 32.89 9,259.02 65.37 NA
lp://KSM/ARIS 61.64 0.40 222.84 123.17 0.79 582.29 61.53 NA
lp://KSM/RMRK 5,585.78 395.77 4,811.55 5,583.04 395.80 7,123.94 2.73 NA
lp://KUSD/CSM 19,413.39 4.02 5,624.43 19,413.39 13.46 5,697.31 0.00 NA
---
title: "Acala / Karura Pool Stats"
output:
  flexdashboard::flex_dashboard:
    orientation: rows
    vertical_layout: scroll
    social: menu
    source_code: embed
---

```{css custom1, echo=FALSE}
.dataTables_scrollBody {
    max-height: 100% !important;
}
```

```{r global, include=FALSE}

library(knitr)
knitr::opts_chunk$set(
  message = FALSE,
  warning = FALSE,
  comment = "#>"
)

library(kableExtra)
library(formattable)
library(lubridate)
library(flexdashboard)
library(DT)
library(subscanr)
library(ghql)
x <- GraphqlClient$new()

# Helper function to concat
`%+%` <- function(a, b) paste0(a, b)

# library(reticulate)

```

```{r tokens, cache = TRUE, include=FALSE}

pools_a <- getPoolStats_acala('acala')
pools_a[, volumeUSD_24H := as.numeric(volumeUSD_24H)]
pools_a[, volumeUSD_7D := as.numeric(volumeUSD_7D)]

pools_a_dex <- getPoolStats_acala_dex('acala') %>%
  setnames("totalTVL", "tvlUSD_DEX")
pools_a_dex[, volumeUSD_24H := as.numeric(volumeUSD_24H)]
pools_a_dex[, volumeUSD_7D := as.numeric(volumeUSD_7D)]

both_a <- merge(pools_a[, .(id, tvlUSD, volumeUSD_24H, volumeUSD_7D)],
                pools_a_dex[, .(id, tvlUSD_DEX, volumeUSD_24H, volumeUSD_7D)],
                by = "id",
                all = TRUE,
                suffixes = c("", "_DEX"))
both_a[, Absolute := abs(tvlUSD - tvlUSD_DEX)] %>% 
  setorder(-Absolute)
both_a[, Percentage := round((Absolute / min(tvlUSD, tvlUSD_DEX)) * 100, 1)]

both_a[, Percentage := ifelse(Percentage > 5, 
                   cell_spec(Percentage, color = "red"), 
                   cell_spec(Percentage, color = "green"))]



pools_k <- getPoolStats_acala('karura')
pools_k[, volumeUSD_24H := as.numeric(volumeUSD_24H)]
pools_k[, volumeUSD_7D := as.numeric(volumeUSD_7D)]

# FOR DEX must use dailyTradeVolumeUSD instead of tradeVolumeUSD
pools_k_dex <- getPoolStats_acala_dex('karura') %>%
  setnames("totalTVL", "tvlUSD_DEX")
pools_k_dex[, volumeUSD_24H := as.numeric(volumeUSD_24H)]
pools_k_dex[, volumeUSD_7D := as.numeric(volumeUSD_7D)]

pools_k[, .(id, token0.name, token1.name)]

both_k <- merge(pools_k[, .(id, tvlUSD, volumeUSD_24H, volumeUSD_7D)],
                pools_k_dex[, .(id, tvlUSD_DEX, volumeUSD_24H, volumeUSD_7D)],
                by = "id",
                all = TRUE,
                suffixes = c("", "_DEX"))
both_k[, Absolute := abs(tvlUSD - tvlUSD_DEX)] %>% 
  setorder(-Absolute)
both_k[, Percentage := round((Absolute / min(tvlUSD, tvlUSD_DEX)) * 100, 1)]

both_k[, Percentage := ifelse(Percentage > 5, 
                   cell_spec(Percentage, color = "red"), 
                   cell_spec(Percentage, color = "green"))]

```

# Acala {.tabset}

Row
----

```{r acala1}

knitr::kable(both_a, escape = FALSE, digits = 2, format.args = list(big.mark = ",")) %>%
  kable_styling() %>%
  add_header_above(c("Pool" = 1, "acala-subql" = 3, "acala-dex-subql" = 3, "Difference" = 2))

```


# Karura {.tabset}

Row
----

```{r karura1}

knitr::kable(both_k, escape = FALSE, digits = 2, format.args = list(big.mark = ",")) %>%
  kable_styling() %>%
  add_header_above(c("Pool" = 1, "acala-subql" = 3, "acala-dex-subql" = 3, "Difference" = 2))

```